home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 30
/
Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso
/
Aminet
/
gfx
/
misc
/
gnuplot-3.7src.lha
/
gnuplot-3.7src
/
gnuplot-3.7.lha
/
gnuplot-3.7
/
term
/
pbm.trm
< prev
next >
Wrap
Text File
|
1998-12-15
|
11KB
|
438 lines
/*
* $Id: pbm.trm,v 1.19 1998/06/18 14:59:21 ddenholm Exp $
*
*/
/* GNUPLOT - pbm.trm */
/*[
* Copyright 1990 - 1993, 1998
*
* Permission to use, copy, and distribute this software and its
* documentation for any purpose with or without fee is hereby granted,
* provided that the above copyright notice appear in all copies and
* that both that copyright notice and this permission notice appear
* in supporting documentation.
*
* Permission to modify the software is granted, but not the right to
* distribute the complete modified source code. Modifications are to
* be distributed as patches to the released version. Permission to
* distribute binaries produced by compiling modified sources is granted,
* provided you
* 1. distribute the corresponding source modifications from the
* released version in the form of a patch file along with the binaries,
* 2. add special version identification to distinguish your version
* in addition to the base release version number,
* 3. provide your name and address as the primary contact for the
* support of your modified version, and
* 4. retain our contact information in regard to use of the base
* software.
* Permission to distribute the released version of the source code along
* with corresponding source modifications in the form of a patch file is
* granted with same provisions 2 through 4 for binary distributions.
*
* This software is provided "as is" without express or implied warranty
* to the extent permitted by applicable law.
]*/
/*
* This file is included by ../term.c.
*
* This terminal driver supports:
* pbm
*
* AUTHORS
* Russell Lang
*
* send your comments or suggestions to (info-gnuplot@dartmouth.edu).
*
*/
/* The following pbmplus drivers use the generic bit mapped graphics
routines from bitmap.c to build up a bit map in memory. The driver
interchanges colomns and lines in order to access entire lines
easily and returns the lines to get bits in the right order :
(x,y) -> (y,XMAX-1-x). */
/* This interchange is done by calling b_makebitmap() with reversed
xmax and ymax, and then setting b_rastermode to TRUE. b_setpixel()
will then perform the interchange before each pixel is plotted */
/* See Jef Poskanzer's excellent PBMplus package for more details of
the Portable BitMap format and for programs to convert PBM files
to other bitmap formats. */
#include "driver.h"
#ifdef TERM_REGISTER
register_term(pbm_driver)
#endif
#ifdef TERM_PROTO
TERM_PUBLIC void PBMoptions __PROTO((void));
TERM_PUBLIC void PBMinit __PROTO((void));
TERM_PUBLIC void PBMreset __PROTO((void));
TERM_PUBLIC void PBMsetfont __PROTO((void));
TERM_PUBLIC void PBMgraphics __PROTO((void));
TERM_PUBLIC void PBMmonotext __PROTO((void));
TERM_PUBLIC void PBMgraytext __PROTO((void));
TERM_PUBLIC void PBMcolortext __PROTO((void));
TERM_PUBLIC void PBMtext __PROTO((void));
TERM_PUBLIC void PBMlinetype __PROTO((int linetype));
TERM_PUBLIC void PBMpoint __PROTO((unsigned int x, unsigned int y, int point));
#endif /* TERM_PROTO */
#ifdef TERM_BODY
/* make XMAX and YMAX a multiple of 8 */
#define PBM_XMAX (640)
#define PBM_YMAX (480)
#define PBM_VCHAR (FNT5X9_VCHAR)
#define PBM_HCHAR (FNT5X9_VCHAR)
#define PBM_VTIC FNT5X9_HBITS
#define PBM_HTIC FNT5X9_HBITS
static int pbm_font = 1; /* small font */
static int pbm_mode = 0; /* 0:monochrome 1:gray 2:color */
/* 7=black, 0=white */
static int pgm_gray[] = { 7, 1, 6, 5, 4, 3, 2, 1, 7 }; /* grays */
/* bit3=!intensify, bit2=!red, bit1=!green, bit0=!blue */
static int ppm_color[] ={ 15, 8, 3, 5, 6, 2, 4, 1, 11, 13, 14 }; /* colors */
TERM_PUBLIC void PBMoptions()
{
pbm_font = 1;
pbm_mode = 0;
term_options[0] = NUL;
while (!END_OF_COMMAND) {
if (almost_equals(c_token, "s$mall"))
pbm_font = 1;
else if (almost_equals(c_token, "me$dium"))
pbm_font = 2;
else if (almost_equals(c_token, "l$arge"))
pbm_font = 3;
else if (almost_equals(c_token, "mo$nochrome"))
pbm_mode = 0;
else if (almost_equals(c_token, "g$ray"))
pbm_mode = 1;
else if (almost_equals(c_token, "c$olor")
|| almost_equals(c_token, "c$olour"))
pbm_mode = 2;
else {
/* reset to default, since term is already set */
pbm_font = 1;
pbm_mode = 0;
int_error("expecting: {small, medium, large} and {monochrome, gray, color}", c_token);
}
c_token++;
}
/* setup options string */
switch (pbm_font) {
case 1:
strcat(term_options, "small");
break;
case 2:
strcat(term_options, "medium");
break;
case 3:
strcat(term_options, "large");
break;
}
switch (pbm_mode) {
case 0:
strcat(term_options, " monochrome");
break;
case 1:
strcat(term_options, " gray");
break;
case 2:
strcat(term_options, " color");
break;
}
}
TERM_PUBLIC void PBMinit()
{
PBMsetfont(); /* HBB 980226: call it here! */
}
TERM_PUBLIC void PBMreset()
{
#ifdef VMS
fflush_binary();
#endif /* VMS */
}
TERM_PUBLIC void PBMsetfont()
{
switch (pbm_font) {
case 1:
b_charsize(FNT5X9);
term->v_char = FNT5X9_VCHAR;
term->h_char = FNT5X9_HCHAR;
term->v_tic = FNT5X9_HBITS;
term->h_tic = FNT5X9_HBITS;
break;
case 2:
b_charsize(FNT9X17);
term->v_char = FNT9X17_VCHAR;
term->h_char = FNT9X17_HCHAR;
term->v_tic = FNT9X17_HBITS;
term->h_tic = FNT9X17_HBITS;
break;
case 3:
b_charsize(FNT13X25);
term->v_char = FNT13X25_VCHAR;
term->h_char = FNT13X25_HCHAR;
term->v_tic = FNT13X25_HBITS;
term->h_tic = FNT13X25_HBITS;
break;
}
}
TERM_PUBLIC void PBMgraphics()
{
int numplanes = 1;
switch (pbm_mode) {
case 1:
numplanes = 3;
break;
case 2:
numplanes = 4;
break;
}
/* HBB 980226: this is not the right place to do this: setfont() influences
* fields of the termtable entry, and therefore must be called by init()
* already. */
/* PBMsetfont(); */
/* rotate plot -90 degrees by reversing XMAX and YMAX and by
setting b_rastermode to TRUE */
b_makebitmap((unsigned int) (PBM_YMAX * ysize),
(unsigned int) (PBM_XMAX * xsize), numplanes);
b_rastermode = TRUE;
if (pbm_mode != 0)
b_setlinetype(0); /* solid lines */
}
static void PBMmonotext()
{
register int x, j, row;
fputs("P4\n", gpoutfile);
fprintf(gpoutfile, "%u %u\n", b_ysize, b_xsize);
/* dump bitmap in raster mode */
for (x = b_xsize - 1; x >= 0; x--) {
row = (b_ysize / 8) - 1;
for (j = row; j >= 0; j--) {
(void) fputc((char) (*((*b_p)[j] + x)), gpoutfile);
}
}
b_freebitmap();
}
static void PBMgraytext()
{
register int x, j, row;
register int i, value;
int mask, plane1, plane2, plane3;
fprintf(gpoutfile, "\
P5\n\
%u %u\n\
%u\n",
b_ysize, b_xsize,
255);
/* dump bitmap in raster mode */
for (x = b_xsize - 1; x >= 0; x--) {
row = (b_ysize / 8) - 1;
for (j = row; j >= 0; j--) {
mask = 0x80;
plane1 = (*((*b_p)[j] + x));
plane2 = (*((*b_p)[j + b_psize] + x));
plane3 = (*((*b_p)[j + b_psize + b_psize] + x));
for (i = 0; i < 8; i++) {
/* HBB: The values below are set to span the full range
* from 0 up to 255 in 7 steps: */
value = 255;
if (plane1 & mask)
value -= 36;
if (plane2 & mask)
value -= 73;
if (plane3 & mask)
value -= 146;
(void) fputc((char) (value), gpoutfile);
mask >>= 1;
}
}
}
b_freebitmap();
}
static void PBMcolortext()
{
register int x, j, row;
register int i;
int mask, plane1, plane2, plane3, plane4;
int red, green, blue;
fprintf(gpoutfile, "P6\n\
%u %u\n\
%u\n",
b_ysize, b_xsize,
255);
/* dump bitmap in raster mode */
for (x = b_xsize - 1; x >= 0; x--) {
row = (b_ysize / 8) - 1;
for (j = row; j >= 0; j--) {
mask = 0x80;
plane1 = (*((*b_p)[j] + x));
plane2 = (*((*b_p)[j + b_psize] + x));
plane3 = (*((*b_p)[j + b_psize + b_psize] + x));
plane4 = (*((*b_p)[j + b_psize + b_psize + b_psize] + x));
for (i = 0; i < 8; i++) {
red = (plane3 & mask) ? 1 : 3;
green = (plane2 & mask) ? 1 : 3;
blue = (plane1 & mask) ? 1 : 3;
if (plane4 & mask) {
red--;
green--;
blue--;
}
/* HBB: '85' is exactly 255/3, so this spans the full
* range of colors in three steps: */
(void) fputc((char) (red * 85), gpoutfile);
(void) fputc((char) (green * 85), gpoutfile);
(void) fputc((char) (blue * 85), gpoutfile);
mask >>= 1;
}
}
}
b_freebitmap();
}
TERM_PUBLIC void PBMtext()
{
switch (pbm_mode) {
case 0:
PBMmonotext();
break;
case 1:
PBMgraytext();
break;
case 2:
PBMcolortext();
break;
}
}
TERM_PUBLIC void PBMlinetype(linetype)
int linetype;
{
switch (pbm_mode) {
case 0:
b_setlinetype(linetype);
break;
case 1:
if (linetype >= 7)
linetype %= 7;
b_setvalue(pgm_gray[linetype + 2]);
break;
case 2:
if (linetype >= 9)
linetype %= 9;
b_setvalue(ppm_color[linetype + 2]);
break;
}
}
TERM_PUBLIC void PBMpoint(x, y, point)
unsigned int x, y;
int point;
{
if (pbm_mode == 0)
line_and_point(x, y, point);
else
do_point(x, y, point);
}
#endif /* TERM_BODY */
#ifdef TERM_TABLE
#define PBMmove b_move
#define PBMvector b_vector
#define PBMtext_angle b_text_angle
#define PBMput_text b_put_text
TERM_TABLE_START(pbm_driver)
"pbm", "Portable bitmap [small medium large] [monochrome gray color]",
PBM_XMAX, PBM_YMAX, PBM_VCHAR,
PBM_HCHAR, PBM_VTIC, PBM_HTIC, PBMoptions,
PBMinit, PBMreset, PBMtext, null_scale,
PBMgraphics, PBMmove, PBMvector, PBMlinetype,
PBMput_text, PBMtext_angle, null_justify_text, PBMpoint,
do_arrow, set_font_null,
0, /* pointsize */
TERM_CAN_MULTIPLOT | TERM_BINARY
TERM_TABLE_END(pbm_driver)
#undef LAST_TERM
#define LAST_TERM pbm_driver
#endif /* TERM_TABLE */
#ifdef TERM_HELP
START_HELP(pbm)
"1 pbm",
"?commands set terminal pbm",
"?set terminal pbm",
"?set term pbm",
"?terminal pbm",
"?term pbm",
"?pbm",
" Several options may be set in the `pbm` terminal---the driver for PBMplus.",
"",
" Syntax:",
" set terminal pbm {<fontsize>} {<mode>}",
"",
" where <fontsize> is `small`, `medium`, or `large` and <mode> is `monochrome`,",
" `gray` or `color`. The default plot size is 640 pixels wide and 480 pixels",
" high; this may be changed by `set size`.",
"",
" The output of the `pbm` driver depends upon <mode>: `monochrome` produces a",
" portable bitmap (one bit per pixel), `gray` a portable graymap (three bits",
" per pixel) and `color` a portable pixmap (color, four bits per pixel).",
"",
" The output of this driver can be used with Jef Poskanzer's excellent PBMPLUS",
" package, which provides programs to convert the above PBMPLUS formats to GIF,",
" TIFF, MacPaint, Macintosh PICT, PCX, X11 bitmap and many others. PBMPLUS may",
" be obtained from ftp.x.org. The relevant files have names that begin with",
" \"netpbm-1mar1994.p1\"; they reside in /contrib/utilities. The package can",
" probably also be obtained from one of the many sites that mirrors ftp.x.org.",
"",
" Examples:",
" set terminal pbm small monochrome # defaults",
" set size 2,2; set terminal pbm color medium"
END_HELP(pbm)
#endif /* TERM_HELP */